Software of the Month Club (Business) 1997 July/Software of the Month Club - Business (Volume 239) (July 1997).iso/pc/code/debug/memmon.dir/00075_UnloadCast.ls

Text File | 1995-02-15 | 449 b | 18 lines

on mouseUp
  put EMPTY into field "Profile Output"
  copyToClipBoard(cast "Profile scripts")
  tell the stage
    pasteClipBoardInto(cast findEmpty(cast 1))
  end tell
  tell the stage
    ProfileCasts()
  end tell
  put the result into field "Profile Output"
  tell the stage
    set the scriptText of cast "Profile scripts" to EMPTY
  end tell
  tell the stage
    set the name of cast the number of cast "Profile scripts" to EMPTY
  end tell
end